load("02_20_m5s_forum_lda.RData")

library(openssl)
forum_text_lda$author_unique_id <- md5(forum_text_lda$author_unique_id)

save(forum_text_lda, lda, file = "02_21_m5s_forum_lda_anonymised.RData")
